(when (not (= (vector-length command-line-arguments) 1))
   (display "Usage: monos -f decompose.scm generator-file\n")
   (exit))

(let* ((file (vector-ref command-line-arguments 0))
       (input (open-input-file file))
       (generator (eval (read input)) ) 
       (decomposition (decompose-ideal generator direction: #t) ) )
   (write decomposition) )

